﻿Public Class AddMarker

    Dim objMkr, objDisplayRule, objms

    Sub Addon(ByVal param As String, ByVal Column As String)
        Dim Counter As Integer
        Counter = Column

        objMkr = objms.AddMarker(param, "USA", param, "", Column)

        For colum = 1 To Counter
            objDisplayRule.Tooltip = "<%." & Column(0) & "%" & ">" & " <%." & Column(1) & "%" & ">"
        Next
    End Sub
End Class
